home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / CompuServe.Script.v2.03 < prev    next >
Text File  |  1992-03-20  |  3KB  |  197 lines
  1. * CompuServe.Script, for QuickMail™
  2. * © 1988-92 CE Software, Inc.
  3. *
  4. * Title: CompuServe.Script.v2.04
  5. * Version: 2.04
  6. * Modification Date: 2/24/92
  7. * 
  8. * NOTE: The filename of this script does not accurately reflect the version
  9. * number of the script.  It was not updated due to the complications it would cause
  10. * in the QuickMail v2.5.1 update process.  This problem will be corrected in a future 
  11. * version of QuickMail.
  12. * 
  13. * Modification History:
  14. * • 2.03 - 2/24/92 :INTERNET sending added and INTERNET binary file transfers traps
  15. * added.  Tests OK
  16. * • 2.01 - 4/11/89: Formating and Name Changes.  Tested OK.
  17. *
  18. * NOTES:
  19. *
  20. * This is a simple script for logging onto CompuServe.  It assumes that
  21. * you are calling directly into the CompuServe network.
  22. *
  23. * THIS SCRIPT ONLY WORKS IF YOU ARE CALLING DIRECTLY INTO A COMPUSERVE NODE.
  24. *
  25. *
  26. * This is called to log us into CompuServe
  27. :IN
  28. OOPS 120,FAILURE
  29. ALERT 1,IN3,Host Name:
  30. PAUSE 2
  31. TYPE ^C
  32. :IN1
  33. WAIT User ID:
  34. TYPE «LOGID»;OLDF/GO:EMAIL^M
  35. WAIT Password:
  36. TYPE «PASSWORD»^M
  37. ALERT 1,IN2,Enter choice !
  38. ALERT 2,IN2,or HELp!
  39. ALERT 3,IN4,<CR>!
  40. ALERT 4,IN5,(Y or N)
  41. WAIT EasyPlex!
  42. :IN2
  43. ALERT 1,,
  44. ALERT 2,,
  45. TYPE Set Mode Command^M
  46. WAIT !
  47. TYPE Set Editor NoLine^M
  48. WAIT !
  49. TYPE Set Page Off^M
  50. WAIT !
  51. SUCCESS
  52. :IN3
  53. TYPE CIS^M
  54. GOTO IN1
  55. :IN4
  56. TYPE ^M
  57. WAIT EasyPlex!
  58. GOTO IN2
  59. :IN5
  60. TYPE Y^M
  61. WAIT EasyPlex!
  62. GOTO IN2
  63. *
  64. * This logs us off CompuServe
  65. *
  66. :BYE
  67. TYPE Bye^M
  68. ALERT 1,SUCCESS,NO CARRIER
  69. ALERT 2,B2,(Y or N)!
  70. ALERT 3,BYE,Host Name:
  71. :B1
  72. PAUSE 10
  73. SUCCESS
  74. :B2
  75. TYPE Y^M
  76. GOTO B1
  77. *
  78. * These are called to send one binary file
  79. *
  80. :XSEND
  81. OOPS 60,FAILURE
  82. TYPE Upload/PROTO:XMODEM/TYPE:Binary^M
  83. WAIT completed.
  84. XMODEM Upload,FAILURE
  85. GOTO S1
  86. :XAGAIN
  87. OOPS 60,FAILURE
  88. TYPE SEND^M
  89. GOTO S1
  90. *
  91. * This is called to send one piece of mail
  92. *
  93. :SEND
  94. OOPS 60,FAILURE
  95. TYPE Compose^M
  96. WAIT Enter message.
  97. TYPE Attn: «NAME»^M
  98. DUMP ^J
  99. TYPE /EX^M
  100. :S1
  101. WAIT (Name or User ID):
  102. TYPE «ADDRESS»^M
  103. ALERT 2,S5,%
  104. ALERT 3,S6,SEND!
  105. ALERT 4,S8,>INTERNET
  106. :S1A
  107. WAIT Subject:
  108. ALERT 2,,
  109. ALERT 3,,
  110. ALERT 4,,
  111. TYPE «TOPIC»^M
  112. ALERT 1,S3,Your name:
  113. :S2
  114. WAIT (Y or N)!
  115. TYPE Y^M
  116. ALERT 1,S4,Press <CR>!
  117. WAIT EasyPlex!
  118. SUCCESS
  119. :S3
  120. TYPE «FROM»^M
  121. GOTO S2
  122. :S4
  123. TYPE ^M
  124. WAIT EasyPlex!
  125. SUCCESS
  126. :S5
  127. ALERT 2,,
  128. ALERT 3,,
  129. ALERT 4,,
  130. WAIT to omit:
  131. TYPE ^M
  132. WAIT SEND!
  133. :S6
  134. ERRORINADDRESS
  135. ALERT 2,,
  136. ALERT 3,,
  137. ALERT 4,,
  138. TYPE ^M
  139. WAIT EasyPlex!
  140. SUCCESS
  141. :S8
  142. ALERT 2,,
  143. ALERT 4,,
  144. GOTO S1A
  145. *
  146. * This is called to resend the last message to someone else.  If there is
  147. * no label called "Again" in a script, it just calls Send for every file
  148. *
  149. :AGAIN
  150. OOPS 60,FAILURE
  151. TYPE EDIT^M
  152. WAIT [ Ready ]
  153. TYPE /T^M
  154. WAIT [ Top of file ]
  155. TYPE /N^M
  156. WAIT Attn:
  157. TYPE /R/Attn: «NAME»^M
  158. WAIT Attn:
  159. TYPE /EX^M
  160. WAIT SEND!
  161. TYPE SEND^M
  162. GOTO S1
  163. *
  164. * This is called to receive mail.  It is called continually with increasing
  165. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  166. * listing, if you wish
  167. *
  168. :RECEIVE
  169. OOPS 60,FAILURE
  170. TYPE Read all^M
  171. :R1
  172. ALERT 1,R10,EasyPlex!
  173. ALERT 2,R2,% Message is Binary
  174. BUFFER Action!
  175. RECEIVE Subj:,Attn:,From:,[,]
  176. TYPE Delete^M
  177. WAIT Delete
  178. GOTO R1
  179. :R2
  180. WAIT Action!
  181. TYPE Dow/Proto:XModem^M
  182. WAIT XMODEM transfer
  183. XMODEM Download,R3
  184. MAILFILE Subj:,Attn:,From:,[,]
  185. WAIT Action!
  186. TYPE Delete^M
  187. WAIT Delete
  188. GOTO R1
  189. :R3
  190. TYPE NOCOMMAND^M
  191. WAIT Action!
  192. TYPE Save^M
  193. WAIT Save
  194. GOTO R1
  195. :R10
  196. FAILURE
  197.